home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / nude.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  19.4 KB  |  238 lines
  1. 10     REM **  NUDE 84 CALENDAR PROGRAM
  2. 20     REM **  CREATED BY: R. NIES  USER # 70206,232
  3. 30     REM **  JANUARY 8, 1984
  4. 40     REM **  FROM AN ORIGINAL IDEA BY
  5. 50     REM **  MICHAEL GARRY  USER # 72735,406
  6. 60     REM **  ON THE COMPUSERVE ART S.I.G
  7. 70     REM
  8. 80    REM ** YOU NEED A 132 CHARACTER PRINTER TO RUN THE CALENDAR
  9. 90    REM ** INSERT THE NEXT LINE FOR AN EPSON MX80 PRINTER
  10. 100    LPRINT CHR$(27);"0" :LPRINT CHR$(15) : WIDTH "LPT1:",132
  11. 110    REM
  12. 120    CLEAR 5000
  13. 130    DEFSTR A-Z
  14. 140    CLS
  15. 150    PRINT"PLEASE WAIT ... ALL GOOD THINGS TAKE TIME."
  16. 160    LET ZZ%=1
  17. 170    FOR QZ% =1 TO 10
  18. 180    LPRINT" "
  19. 190    NEXT QZ%
  20. 200    REM
  21. 210    REM ** SET UP THE PRINT FORMATS HERE
  22. 220    X3="XXX"
  23. 230    X4="XXXX"
  24. 240    X5="XXXXX"
  25. 250    X6="XXXXXX"
  26. 260    X7="XXXXXXX"
  27. 270    X8="XXXXXXXX"
  28. 280    X9="XXXXXXXXX"
  29. 290    N3="999"
  30. 300    N4="9999"
  31. 310    N5="99999"
  32. 320    N6=N3+N3
  33. 330    N7=N3+N4
  34. 340    N8=N4+N4
  35. 350    N9=N5+N4
  36. 360    A3="&&&"
  37. 370    A4="&&&&"
  38. 380    A5="&&&&&"
  39. 390    A6=A3+A3
  40. 400    A7=A3+A4
  41. 410    A8=A4+A4
  42. 420    A9=A4+A5
  43. 430    S3="///"
  44. 440    S4="////"
  45. 450    S5="/////"
  46. 460    S6=S3+S3
  47. 470    S7=S3+S4
  48. 480    S8=S4+S4
  49. 490    S9=S4+S5
  50. 500    D3="$$$"
  51. 510    D4="$$$$"
  52. 520    D5="$$$$$"
  53. 530    D6=D3+D3
  54. 540    D7=D3+D4
  55. 550    D8=D4+D4
  56. 560    D9=D4+D5
  57. 570    P3="..."
  58. 580    P4="...."
  59. 590    P5="....."
  60. 600    P6=P3+P3
  61. 610    P7=P3+P4
  62. 620    P8=P4+P4
  63. 630    P9=P5+P4
  64. 640    B3="   "
  65. 650    B4="    "
  66. 660    B5="     "
  67. 670    B6=B3+B3
  68. 680    B7=B3+B4
  69. 690    B8=B4+B4
  70. 700    B9=B5+B4
  71. 710    X2="         ************************           "
  72. 720    X1="         *                      *           "
  73. 730    X0="         * SU MO TU WE TH FR SA *           "
  74. 740    REM
  75. 750    REM ** THIS IS THE BANNER
  76. 760    Y1="  1111        9999          8888888             4444 "
  77. 770    Y2=" 11111      99999999       8888 8888          44 444 "
  78. 780    Y3="111111     9999  9999     888     888       44   444 "
  79. 790    Y4="  1111     999    999      888   888       44    444 "
  80. 800    Y5="  1111     999999999        8888888       44     444 "
  81. 810    Y6="  1111      9999999        888   888      44444444444"
  82. 820    Y7="  1111        9999        888     888            444 "
  83. 830    Y8="  1111       9999          8888 8888             444 "
  84. 840    Y9="  1111      9999            8888888              444 "
  85. 850    Z=STRING$(30," ")
  86. 860    REM
  87. 870    REM ** PRINT THE BANNER
  88. 880    LPRINT Z+Y1
  89. 890    LPRINT Z+Y2
  90. 900    LPRINT Z+Y3
  91. 910    LPRINT Z+Y4
  92. 920    LPRINT Z+Y5
  93. 930    LPRINT Z+Y6
  94. 940    LPRINT Z+Y7
  95. 950    LPRINT Z+Y8
  96. 960    LPRINT Z+Y9
  97. 970    LPRINT" "
  98. 980    LPRINT" "
  99. 990    REM
  100. 1000    REM ** NOW START THE PICTURE AND CALENDAR
  101. 1010    LPRINT TAB(30)N7
  102. 1020    LPRINT TAB(29)N3+X3"$" N3"   " N4
  103. 1030    LPRINT TAB(27)N4+X6"$$" N4+X3"$$9    " N8
  104. 1040    LPRINT TAB(26)"99" X3+D8+X5+X5+N5".." N7
  105. 1050    LPRINT TAB(22)N6+X3+D6+D6"**" X6+X9"*9XX9"
  106. 1060    LPRINT TAB(20)N3+X7+D5+D5"X$X**" X9+X6"**9XX9"
  107. 1070    LPRINT TAB(20)"9" X8+D9+D5"**" X9+X7"**9XX9"
  108. 1080    LPRINT TAB(19)"9" X9+D5"**X99" X9+X9+X6"*9XX9"
  109. 1090    LPRINT TAB(18)"99" X9"$**$XX*9MMM99$9" X4+N4+D3+N4"*" X3"9XX9"
  110. 1100    LPRINT TAB(17)"$9*" X8"$*$" X3"9" A3+S5+A3"9*X" X9"*99*" X4"9"
  111. 1110    LPRINT TAB(17)"*9" X9"$.$XX9" A3"//O((" S3+A3",99$$99,," X5"9XXX$"
  112. 1120    LPRINT TAB(16)"99" X9"$XX$$XX9" A3+S4",,,,,....**..&9X" X9"9"
  113. 1130    LPRINT TAB(15)"9X9" X4+D5+X3"$" X3"99" A3"//,,,,.*9$*,,&  //&9" X8"9"
  114. 1140    LPRINT TAB(15)"9" X4"$$***&" X4"*" X4"$9&&//,,Z )$9" B6".../&9" X6"***"
  115. 1150    LPRINT TAB(16)"9" X3"$***&X" X9"9&&&/,... *$  .*999*/  .&9" X4"$9XX9"
  116. 1160    LPRINT TAB(16)"9XX$***&X" X9"  *." B6". .9$9 $,*" B4".&99XXX$&X99"
  117. 1170    LPRINT TAB(17)"9XX$***&X" X9"$9$$$9.,    ,9..$9/  ./&&99(XX**X>>"
  118. 1180    LPRINT TAB(17)"&$XX$***&" X7"$    ,.,..   (." B8".,/&&9X9X***X$"
  119. 1190    LPRINT TAB(17)"9XX$***&" X5"9   .*9$,,9.,  $,, " B9"),/99X***X9"
  120. 1200    LPRINT TAB(19)"9XX$***&" X4"$   *,9$$*  ...   .9,," B5"..19X9***X9" B4"*"
  121. 1210    LPRINT TAB(20)"$XX$***&X9  .*9***,/   ,,.   *)9," B7"*X9&**X9    $9"
  122. 1220    LPRINT TAB(20)"9" X4"$**&9&&//,,.." B6".,9$0/,* " B9"&9XX*XX" B4"9XX"
  123. 1230    LPRINT TAB(20)"*" X5"$**&*&&??,." B8".9 .." B6",*" B4"&9XX*X" B5"*9X$"
  124. 1240    LPRINT TAB(21)"9" X6"$XX9&&/," B8"." B8"$$*$$" B4",,$" X4"*" B4"9XX*,"
  125. 1250    LPRINT TAB(22)"$" X5"&XXX,*&&&//    .    9$$9*9$$    ),*/9XXXX9  9" X4"*9"
  126. 1260    LPRINT TAB(23) "$9" X9"9" A4"/, .,   $9**9$$9" B6"&9&&$X" X9"9X9"
  127. 1270    LPRINT TAB(22)"9  9" X9"$" A4"//   .9*$$$9*" B7"&9&&&9" X9"XX$"
  128. 1280    LPRINT TAB(21)"99" B4"4" X8",9&&&&//,.    .,." B5"//*,&&/&$XXX*9*XXXX9"
  129. 1290    LPRINT TAB(21)"9X9" B5"9" X8"9&&&&//,,Z   ..   ,//9*&&//&9MMM$$99*-"
  130. 1300    LPRINT TAB(21)"9X9" B6"9$*" X6"$&&///,,...... .// *$&&///&&$X" S6"M$$ 9"
  131. 1310    LPRINT TAB(21)"$W9" B6"9XXXW" X6"$&//,,..$,///9$,&&&//.//&9XM***&&&///,,"
  132. 1320    LPRINT TAB(21)"$XW9    9" X7"9" X5"$99*7**9$1," A5"//,,,/&9X9X***&&&,../D*1/,...//$9*,"
  133. 1330    LPRINT TAB(22)"9XX9$9*" X8"9" X7"$&&/," S7"&&//,,,/&&$X9M*&&&,.&PDP/,.." B8",P9*"
  134. 1340    LPRINT TAB(23)"99" X5"P9X9" X9+X5"$&///,.,/&9..,,,///&&&M*&&//,.DD&&/,. " B9" ,$9"
  135. 1350    LPRINT TAB(24)"9X" X9"X9$" X8"9&///,)),//&&&//,,,/&&&9**9MM//OD&/,." B9+B5",$9"
  136. 1360    LPRINT TAB(23)"9" X6+X6"9$" X8"9&///,)),//&&&//,,,/&&9**9$MM//OD&/,.." B7+B8"..$"
  137. 1370    LPRINT TAB(22)"9&&&1999$19" X8+X8",9&///,.,19...,,,//&&&OOO9,,OO&/,..." B7+B7".,,8"
  138. 1380    LPRINT TAB(21)"9" A4+S4+A4"9" X8+X8"9&///,,/&A))),,,//&&9$..//PO&/,....." B7" ..,///&P9"
  139. 1390    LPRINT TAB(20)"91" A4+S4"DDDD99" X9+X6"*9$&&///&&9...,,,&9$..,,//9D9&&&///,,...  ..,///" A5;
  140. 1400    LPRINT"E9"
  141. 1410    LPRINT TAB(19)"91" A4+S5"DDDD$ 19X" X9"X9$&&&9&&//.&9$../&9...," S5"*E MN&&&&////,,.....,,///&&&EE9"
  142. 1420    LPRINT TAB(18)"91" A4+S5"DDDP$    ,**99$9X*9$&&//&&$9&//.&9..*9.," S5"JJJN*$PMMMN" A5"///,,,,///" A5"EE$9"
  143. 1430    LPRINT TAB(17)"91&&&&////D&&&&9$ " B9"9$&&///,//&&*9&/&$...$..,,,///JJNNN9$9MMMN" A6+S5",..,,//&&&E$9"
  144. 1440    LPRINT TAB(16)"91&&&&////DD&&&&9" B9"$&&///,,Z,///&&9&&//..&&" S5"&&&NNMMMM9$9MMMMNN" A6+S5",,../&&XE9"
  145. 1450    LPRINT TAB(15)"91&&&&///" A5"DD9" B8"*9&&&///M/.,,///&&9&&///,,,/" N7"OOO$O9$$*MMMMMNNN" A6"////,,.../&&E9"
  146. 1460    LPRINT TAB(14)"91&&&&////&&&&DD9" B8"9*&&&&/NMN&&,///&&$&&//,,,//" A6"OOOO$$$JDD//PPJMMMNN&&&///,,..&&&&OOO$19"
  147. 1470    LPRINT TAB(13)"9" A5+S4+A5"D19" B7"9*&&&&//NMMN" A7"9NNM" A7+A7"OOOOOJFAAF//AA" A7"AAA///,,,..//&&&$9,"
  148. 1480    LPRINT TAB(12)"91" A5+S5"&&&DD9" B7"9*JJNNMA9XXXXJMM" A5+S6+A9+A5"OOOOOO" S7"J" X5"J&&&////,,,..,/&&S9"
  149. 1490    LPRINT TAB(12)"91" A6+S4+A4"D9" B6"9*///JJMM99MMNN&////&&&&" S9+A9"&" S5"***99$9**" A9+S5",,...,,/&$9"
  150. 1500    LPRINT TAB(11)"91" A6+S5"&&&D9" B6"9*//NNNMMMMO*99MNNN///" A9+A9"&&&/&&" S6"*****9*&" A9+S5",,..,//&**$"
  151. 1510    LPRINT TAB(10)"91" A6+S5"&&&&D9" B5"9*" S5"NNNMMM**9MNN///" A6"*********" A7"/&&" S6"&&**$$9*&" A9+S4",,...,/&&&*$"
  152. 1520    LPRINT TAB(9)",9&X&&&&//,,,/&&&&9     9$&&&&///,,,,,//9MMN,,,,//&&" A9+S6",,,,,...,,/&&NMMMX*9&&&///&/,,,,,,,.....,,,///"
  153. 1530    LPRINT TAB(8)",9&X" A5"//,,,/&&&91    *$*" A5"///,,,//&&$MMNN,,,///&&&NMM&&&&////,,,,,,....,/*&NNMMNNNN9&&&////H&/,,,,,,.....,,,/"
  154. 1540    LPRINT TAB(7)"*9&X" A5"//,,,/&&&&$  9$" A5"///,,//" A5"$MMN,,,,////&NMMMN&&&////,.." B5".,/&&&ND" A5"///9&&&&//";
  155. 1550    LPRINT"/9&&&////&&&//,,,,,,"
  156. 1560    LPRINT TAB(6)"*9&X" A6"//,,,,//&&$9$***" A5"//..//" A6"X$9N/,,,,///&NMMN&&//..." B9".,,/" A5+S6"&19&&&////&&&//,,,,,,.....,"
  157. 1570    LPRINT TAB(5)"*9/&XX" A5"//,,,,//&&&9$***&&&&//,,,//" A7"NX$N&/,,,,,//NMN&&&//.. " B9" .,.&&&" S8"&&19&&&////&&&&////,,,,,,"
  158. 1580    LPRINT TAB(5)"9&XX" A5"//,,,,//&&&9$***&&&&//,,//" A8"NXX$N/,,,///&&N$9&/,,." B7+B6"..,," S6"&&///&&&19&&&////&&&&////,,,."
  159. 1590    LPRINT TAB(4)"9&XXX&&&&//,,,,//&&&19$**&&&//,,//" A8"NXXX99&/,,,///&&&9/,,." B8+B8"..,,////&&///&&&&X19&&&////&&&&////,,,"
  160. 1600    LPRINT TAB(4)"9&XXX&&&&//,,,///&&&9$**&&&//,,//" A9"NX9 $&/,,...//&&&9/,., .,." B6+B6"..,,///&&&&///&&&&XXX9*&&///&&&&////,,"
  161. 1610    LPRINT TAB(3)"9&XXX&&&&//,,,///&&&&8*&&&//,,//" A9"NX9  9/,,." B5"/&&&$/,..*9M9,." B9"..,,///&&9&&//,,//&&&XX$9&&&///&&&////,"
  162. 1620    LPRINT TAB(3)"9&XXX&&&&//,,,///&&&98&&&///,//" A9"&9   19,." B8"/&&M/,.$////9//" B9"..,,//&&9&&//,,,&&&&XX$ 9&&&////&&////"
  163. 1630    LPRINT" 9$XXX&&&&//,,,///" A6"/,,,////" A9"9" B5"$.." B8".//&M/.9......9.." B7"..,,//&&*&&//,,,,/&&&XX9   9&&&////&///"
  164. 1640    LPRINT" 9$XXX&&&O/,,,///" A6",,,,////" A8"9" B6"9,." B8".,&&$/,$.($...$.." B5"...,,///&&9&&///,,,,/&&X9" B6"9&&&" S6
  165. 1650    LPRINT"$&" X5"///,." S6+A4"/.." S4+A7"9" B8"**." B9"..,/&9/,9.($...9..  ...." S6"&&$&////,,,,,/&&&$." B7"9&&&////"
  166. 1660    LPRINT"9&XX&&&//..." S7"&&&/,,," A8"9" B8"9.$." B8"..,,*&*//,9....9,,...,,,,//" A5"X9&&//,.,,,//&&&9 " B9" 9&&&//"
  167. 1670    LPRINT"9&X&&&&//,,," S7"&&&&/,,,//&&&9." B8"($..9." B5"...,,,&*&$///$.*$,..,,,,,///&&&&XX$&&///..,,,///&89 " B9" 9&&&/"
  168. 1680    LPRINT"*&X&&&//,,," S8"&&&/,,,//&&9 " B9" ($..$....,,,,,&&&**&&9*/////,,,," S5"&&&&XXX9&&&//,....,,,//E*" B7+B6"9&&"
  169. 1690    LPRINT"*&&&&//,,," S8"&&&/,,,//&9" B7+B7"9,,9...,,,//&&&&X9&&&$&&&" S6+A6+X6"$&&&//,....,,,/&H*" B7+B8"9"
  170. 1700    LPRINT" $" A6+S6+A6"/,,//&9X" B8+B8"$,9,&/,,.,,/&&X9$&&&&$X*" A9+X6"9$&&&&//,......,,,/&&"
  171. 1710    LPRINT" 9&&&/" S9+A6"$*" B7+B8+B7",$/&&&*//&&&X9$&&&///&&$" X7+X6"9$,&&&&//,....., ,//&8"
  172. 1720    LPRINT"  9&&&&" S7"&&&9*" B9+B9+B9" 9&&&&/&&&X9$&&/,,//&&*$" N7"$$*" A8"//,,";
  173. 1730    LPRINT".....,,//&8"
  174. 1740    LPRINT"   I9" A8"9" B9+B9+B9+B8"*$XXX&X9$&&//,,,//&&&&&,9$9*" A9"///,,......,//&$"
  175. 1750    LPRINT TAB(5)":9$9*." B9+B9+B9+B9+B3".*9$9,9&//,,...,/&&&&NNMMMMNN" A6"///,,,......,,/&9"
  176. 1760    LPRINT TAB(56)"9&//,,.....," A5"NMN" A6"////,,,.......,,/&$"
  177. 1770    LPRINT TAB(56)"9//,,.......////,&&&,&&" S5",,,.........,,,/9"
  178. 1780    LPRIT TAB(57)"$/,.,/,.........,,,,.................,,,//1*"
  179. 1790    LPRINT TAB(10)"*   ******   *******        * " B9+B6"  9&//.,,/,......,,,,,,,............,,,,,////."
  180. 1800    LPRINT TAB(10)"*   *    *   *     *      * * " B9+B6"  *&&/.,,/,.........,,,,............,,,,,///$"
  181. 1810    LPRINT TAB(10)"*   *    *   *     *    *   * " B9+B6"  99&&&////,,....................,,,,,,,,///99"
  182. 1820    LPRINT TAB(10)"*   ******   *******   *******" B9+B5"   9&9&&&>>>>//,,,,,,,,,............,,,,," S5"9"
  183. 1830    LPRINT TAB(10)"*        *   *     *        * " B9+B4"   $&9" A6;
  184. 1840    LPRINT">>>>///,,,,,,,,,,.......,,,,,,,//*/$"
  185. 1850    LPRINT TAB(10)"*        *   *     *        * " B9"      9&&//" A9">>>>>&>//&&/,,,,,..,,,,,," S5"9/."
  186. 1860    LPRINT TAB(10)"*   ******   *******        * " B9"     *$9&&///" A7+A7">>>>>" S5",,,,,,," S7"99"
  187. 1870    LPRINT TAB(53)"$9&&&" S6+A9"&>>>>>" S7",,," S6+S6"$"
  188. 1880    LPRINT X2+B7"9&9&&&//,," S5+A5">" S6">>>" S9"/&&//,," S4"9"
  189. 1890    LPRINT TAB(10)"*    J A N U A R Y     * " B8+B9"$//&&&////*" S6",,,,,////&&" S9">&&&,//,,,///&"
  190. 1900    LPRINT X2+B6"9//&&&/,,9$$9..........,,//&&//,,,,,,,";
  191. 1910    LPRINT"&&&///,,,////&3"
  192. 1920    LPRINT X0+B5".$/,&&&/,,9(.9...........,,,,////,,,/&&&&///,,.,,////E*"
  193. 1930    LPRINT X2+B5"*/..&&/,,.//&*...............,,,,,///&&&&//,,,..,,///H9"
  194. 1940    LPRINT TAB(10)"*                      *" B9+B7"9/..9&//,.,//";
  195. 1950    LPRINT".................,,,,//&&&&//,,,....,,//Q$I"
  196. 1960    LPRINT TAB(10)"*  1  2  3  4  5  6  7 *" B9+B6".$/.9&&//..,,/" P9+P8",,,//&&&&//,,," P6",,//1*"
  197. 1970    LPRINT TAB(10)"*  8  9 10 11 12 13 14 *" B9+B5".9//..$$$//..,/" P9+P7",,///&&&&///,," P7",,///$I"
  198. 1980    LPRINT TAB(10)"* 15 16 17 18 19 20 21 *" B9+B5"99/...9&&///.,..............."",,//" A5"////,,," P6",,,///*"
  199. 1990    LPRINT TAB(10)"* 22 23 24 25 26 27 28 *" B9+B5"$.9&..$&&&///.," P9+P6",/" A7"///,,," P7",,,///9I"
  200. 2000    LPRINT TAB(10)"* 29 30 31             *" B9+B5"$.9&..$&&&///.," P9+P6",/" A7"///,,," P7",,,///9I"
  201. 2010    LPRINT X1"  .9.$&..99&&////," P9+P6",/" A7"///,,," P7",,,///9I"
  202. 2020    LPRINT X2"  99..&9..$Z&&" S5+P9+P5"," A7"////,,," P7",,,///$)"
  203. 2030    LPRINT TAB(47)"*$*,&,..9ZZ&&" S6",,,....,,,//" A9+S4",,," P5",,,,///1*)"
  204. 2040    LPRINT X2"  1/9,&,..9ZZZ&&" S6",,..,,,///&&&ZZZ&&&////,,," P6",,,,////9)."
  205. 2050    LPRINT TAB(10)"*    F E B R U A R Y   *" B9+B3".9/9,/&Z&&*ZZZZ&&" S6+S6"&&&ZZZZZ&&&///,,," P6",,,," S5"$$."
  206. 2060    LPRINT X2"  *$//9/&&**ZZZZZ>&&&&,,,,,//&&&ZZZZZZZ&&&///,,," P6",,,," S5"$1)"
  207. 2070    LPRINT X0"  1// /9&&ZZZZZZZZZ>>" A8"ZZZZZZZZZZ&&&///,,,,,...,,,,," S6"*9"
  208. 2080    LPRINT X2" *1// /$&ZZEE&&ZZZZZA&ZZZZZZZZZZZZZZZZ&&&///,,,,,,....,,,,////&9.I
  209. 2090    LPRINT TAB(10)"*           1  2  3  4 *" B5+B6".9  // 9&ZZ&EE&//ZZAAZZZZZZZZZZZZZZZZZZ&&&&////,,,,,...,,,/////&9/"
  210. 2100    LPRINT TAB(10)"*  5  6  7  8  9 10 11 *" B5+B6"($  //  9Z&EEE&ZZAAAAZZZZZZZZZZAAZZZZZ&&&&" S5",,,,..,," S5"**$9I)"
  211. 2110    LPRINT TAB(10)"* 12 13 14 15 16 17 18 *" B5+B6"19   //  9&&AAAAAAAAAAAAZZAAAAAAAAZZZ" A6+S5",,,,,,,,////**&$*)"
  212. 2120    LPRINT TAB(10)"* 19 20 21 22 23 24 25 *" B5+B6"M/   ///  9&XAAAAAAAAAAAAAAAAAAAAZ,Z" A6+S9",,,,," S5"&&&9)"
  213. 2130    LPRINT TAB(10)"* 26 27 28 29          *" B5+B6"M/   ///  9& XAAAAAAAAAAAAAAAAAAAAZ,Z" A6+S9",,,,," S5"&&&9)"
  214. 2140    LPRINT X1"P//  ///   9&9AAAAAAAAAAAAAAAAAAAAZ," A6+S9"//,," S6"&&&$)"
  215. 2150    LPRINT X2"$//  ////   9XAAAAAAAAAAAAAAAAAA,Z" A7+S6+S6",," S6"&&9M,"
  216. 2160    LPRINT TAB(45)"M//   ////   $MAAAAAAAAAAAAAAA,$&&,,&&&&" S8",," S5+A7",9D"
  217. 2170    LPRINT X2"I//   " S5"  $MMAAAAAAAAMMAAA9,," A9+A4+S7+S5+A5"9$*"
  218. 2180    LPRINT TAB(10)"*      M A R C H       *" B5+B6"I//    " S5" 9MMMAAAAMMMMMM999" A9+S5+S5+A7+A7"9,"
  219. 2190    LPRINT X2"1N/" B4",////,*$MMMMMMMMMMMMA99," A9+S9+A7+A6"$*"
  220. 2200    LPRINT X0"*J/     ,///&&9$MMMMMM$$$$$9  " A9+S4",,,,,/,," S5+A5"9$,"
  221. 2210    LPRINT X2",$/,     ,//&&&$$MMMMM$$$$   " A6"///,,,..,," S8+A7"$1,"
  222. 2220    LPRINT TAB(10)"*              1  2  3 *" B5+B7"9/," B5",,/&Z19$$MM$$";
  223. 2230    LPRINT"9/  /" A5"//,,,," P6",,,," S5+A6"$9)"
  224. 2240    LPRINT TAB(10)"*  4  5  6  7  8  9 10 *" B5+B7"*/,." B5",/&&Z9" D6"9  /" A5"///,,,," P5",,,,////" A7"$,"
  225. 2250    LPRINT TAB(10)"* 11 12 13 14 15 16 17 *" B7+B5",M/," B6"/&&&Z99$$$9  /&&&&///.,," P7",,,,,///" A6"99)"
  226. 2260    LPRINT TAB(10)"* 18 19 20 21 22 23 24 *" B7+B5",$/," B7"/&&&Z99$$9  /&&&&,,,...   " P5",,,,,//" A6"$Q"
  227. 2270    LPRINT TAB(10)"* 25 26 27 28 29 30 31 *" B7+B6"9/,." B5"./&&&ZZZ9$ ,&&&&,,...   " P6",,,,,//" A7"99"
  228. 2280    LPRINT X1"  ,M/," B5",/&&&ZZZ$  /&&&,,..." B5+P5",,,///" A6"$9/"
  229. 2290    LPRINT X2"  ,$/," B4",/&&&&ZZ9  /&&,,...." B5+P5",,,///" A7"$$"
  230. 2300    LPRINT TAB(48)"9/,." B5"/&&&&ZZ$&/&&&,,,....    ....,,,////" A5"9/"
  231. 2310    LPRINT X2+B3"*/,,    ,/&&&ZZ9&/" A3",,,....    ....,,,////" A7"*"
  232. 2320    LPRINT TAB(10)"*      A P R I L       *" B7+B7",$/,.    ./&&&&Z$&/";
  233. 2330    LPRINT A2",,...      ....,,,////" A7"*/"
  234. 2340    LPRNT X2+B4"9/.   .," A5"9" A4"/,,,..  .....,,,////" A8"$9"
  235. 2350    LPRINT X0+B4",$/.  .,/&&&&9" A4"/,,,.. .....,,,,////" A9"9"
  236. 2360    LPRINT X2+B5"9/,M  ." A5"$" A4"///....,,,,....////" A9"9"
  237. 2370    LPRINT TAB(10)"*  1  2  3  4  5  6  7 * B8+B9"&O0$/,0
  238.